﻿
Imports std
Imports storoomc

Public Class stornode_redundance3
    Inherits nodes_redundance3
    Implements comparableStorageInterface(Of stornode_redundance3), stornodebase

    Public Const displaySeparator As Char = character.comma

    Public Function CompareTo(ByVal other As stornode_redundance3) As Int32 _
                              Implements IComparable(Of stornode_redundance3).CompareTo
        Return _compare(Me, other)
    End Function

    Public Function CompareTo(ByVal other As stornodebase) As Int32 Implements IComparable(Of stornodebase).CompareTo
        Return cast_compare(Of stornode_redundance3, stornodebase, stornode_redundance3)(Me, other)
    End Function

    Public Sub New(ByVal inputhost As String, ByVal inputport As String)
        _new(Me, inputhost, inputport)
    End Sub

    Public Function display(Optional ByVal length As Int64 = 64) As String Implements IDisplay.display
        Return _display(Me, displaySeparator, length)
    End Function
End Class
